home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_2
/
tmbnk201.zip
/
CONVERT.CMD
next >
Wrap
OS/2 REXX Batch file
|
1992-08-17
|
517b
|
16 lines
/* Once you use this delete so it doesn't get ran again accidently */
today = DATE('S')-1
oldfile='timebank.bak'
bankfile='timebank.dat'
'ren' bankfile oldfile
position=1
DO UNTIL (acct='')
acct=CHARIN(oldfile,position,36)
position=position+36
banktime=CHARIN(oldfile,position,1)
position=position+1
banktime=c2d(banktime)
if acct > '' then okfile= LINEOUT(bankfile, STRIP(acct,,'00'x) today banktime 0 0 0)
end /* do */
CALL LINEOUT(bankfile)
CALL LINEOUT(oldfile)